home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8173 < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.9 KB  |  141 lines
  1. %%BeginFile: lw8_level2_patterns-2.0
  2. /pmtx Z
  3. /BGnd Z
  4. /FGnd Z
  5. /PaintData Z
  6. /PatternMtx Z
  7. /PatHeight Z
  8. /PatWidth Z
  9. /$d Z
  10. /savecolor 4 array def
  11. /savecolorspace Z
  12. /patDecode Z
  13. /:a{
  14. mark 0 0 0 currentcolor savecolor astore pop cleartomark
  15. /savecolorspace currentcolorspace store
  16. $c setcolorspace
  17. /patDecode
  18. [currentcolor counttomark
  19. dup 2 add 1
  20. roll
  21. cleartomark[exch
  22. {0 1}repeat]
  23. def
  24. }bd
  25. /:e{
  26. savecolorspace setcolorspace
  27. mark savecolor aload pop setcolor cleartomark
  28. }bd
  29. /initQDpatterns
  30. {
  31. gS
  32. initmatrix
  33. mT dup 4 get exch 5 get :T
  34. 1 0 dtransform round exch round exch idtransform
  35. dup mul exch dup mul exch add sqrt
  36. 0 1 dtransform round exch round exch idtransform
  37. dup mul exch dup mul exch add sqrt
  38. neg
  39. scale
  40. 0
  41. por not{90 add}if
  42. normland{180 add}if
  43. rotate
  44. matrix currentmatrix
  45. gR
  46. /pmtx xs
  47. :a
  48. }bd
  49. /:t
  50. {
  51. 14 dict begin
  52. /BGnd xdf
  53. /FGnd xdf
  54. /PaintData xdf
  55. /PatternType 1 def
  56. /PaintType 1 def
  57. /BBox[0 0 1 1]def
  58. /TilingType 1 def
  59. /XStep 1 def
  60. /YStep 1 def
  61. /PatternMtx[24 0 0 24 0 0]def
  62. /PaintProc
  63. BGnd null ne
  64. {
  65. {
  66. begin
  67. BGnd aload pop :F
  68. 0 0 1 1 rF
  69. FGnd aload pop :F
  70. 24 24 T PatternMtx PaintData imagemask
  71. end
  72. }
  73. }{
  74. {
  75. begin
  76. FGnd aload pop :F
  77. 24 24 T PatternMtx PaintData imagemask
  78. end
  79. }
  80. }ifelse
  81. def
  82. currentdict
  83. PatternMtx
  84. end
  85. $c setcolorspace
  86. gS pmtx setmatrix makepattern gR
  87. }bd
  88. /:u
  89. {
  90. 14 dict begin
  91. /$d 8 dict def
  92. /PatternType 1 def
  93. /PaintType 1 def
  94. /BBox[0 0 1 1]def
  95. /TilingType 1 def
  96. /XStep 1 def
  97. /YStep 1 def
  98. /PaintData xdf
  99. /PatHeight xdf
  100. /PatWidth xdf
  101. /PatternMtx[PatWidth 0 0 PatHeight 0 0]def
  102. $d begin
  103. /ImageType 1 def
  104. /MultipleDataSource F def
  105. /Height PatHeight def
  106. /Width PatWidth def
  107. /Decode patDecode def
  108. /ImageMatrix PatternMtx def
  109. /DataSource PaintData def
  110. /BitsPerComponent 8 def
  111. end
  112. /PaintProc
  113. {
  114. begin
  115. $d image
  116. end
  117. }def
  118. currentdict
  119. PatternMtx
  120. end
  121. gS $c setcolorspace pmtx setmatrix makepattern gR
  122. }bd
  123. /bk[1 1 1]def
  124. /fg[0 0 0]def
  125. /:b{
  126. :t
  127. setpattern
  128. pop pop
  129. }bd
  130. /:d{
  131. :t
  132. setpattern
  133. 10{pop}repeat
  134. }bd
  135. /:c{
  136. :u
  137. setpattern
  138. 10{pop}repeat
  139. }bd
  140. %%EndFile
  141.